home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / MMenu.dxr / 00076.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  1.8 KB  |  78 lines
  1. on superrandomgenerator
  2.   global iMenuPosition, ActivityList
  3.   if rollOver(8) or (rollOver(9) = 1) then
  4.     nothing()
  5.   else
  6.     set x to random(80)
  7.     if x <= 2 then
  8.       if iMenuPosition > 12 then
  9.         set iMenuPosition to 1
  10.         set ActivityList to GetRandomList(13)
  11.       else
  12.         set iMenuPosition to iMenuPosition + 1
  13.       end if
  14.       set n to getAt(ActivityList, iMenuPosition)
  15.       case n of
  16.         1:
  17.           if soundBusy(2) = 0 then
  18.             sound playFile 2, "RndWavs/Oth001.wav"
  19.           else
  20.             nothing()
  21.           end if
  22.         2:
  23.           if soundBusy(2) = 0 then
  24.             sound playFile 2, "RndWavs/Oth002.wav"
  25.           else
  26.             nothing()
  27.           end if
  28.         3:
  29.           if soundBusy(2) = 0 then
  30.             sound playFile 2, "RndWavs/Oth003.wav"
  31.           else
  32.             nothing()
  33.           end if
  34.         4:
  35.           if soundBusy(2) = 0 then
  36.             sound playFile 2, "RndWavs/Oth015.wav"
  37.           else
  38.             nothing()
  39.           end if
  40.         5:
  41.           if soundBusy(2) = 0 then
  42.             sound playFile 2, "RndWavs/Oth016.wav"
  43.           else
  44.             nothing()
  45.           end if
  46.         6:
  47.           if soundBusy(2) = 0 then
  48.             sound playFile 2, "RndWavs/Oth017.wav"
  49.           else
  50.             nothing()
  51.           end if
  52.         7:
  53.           if soundBusy(2) = 0 then
  54.             sound playFile 2, "RndWavs/Oth018.wav"
  55.           else
  56.             nothing()
  57.           end if
  58.         8:
  59.           if soundBusy(2) = 0 then
  60.             sound playFile 2, "RndWavs/Oth019.wav"
  61.           else
  62.             nothing()
  63.           end if
  64.         9:
  65.           RKAnimation()
  66.         10:
  67.           RKAnimation()
  68.         11:
  69.           RKAnimation()
  70.         12:
  71.           SKAnimation()
  72.         13:
  73.           SKAnimation()
  74.       end case
  75.     end if
  76.   end if
  77. end
  78.